home *** CD-ROM | disk | FTP | other *** search
/ PC Accelerator 10 / HOMEWRLD.bin / BEHAV.CXT / 00018_Script_Send Taiidan Change Picture < prev    next >
Text File  |  1999-03-23  |  2KB  |  72 lines
  1. property myScrollTop
  2.  
  3.  
  4. global gtextSprite
  5.  
  6. global gVideoSprite
  7.  
  8. global gImageSprite
  9.  
  10. on enterFrame me
  11.   set myScrollTop = the scrollTop of member (the member of sprite gTextSprite)
  12.   sendChangeImage
  13. end
  14.  
  15. --on hideVideoSprite
  16. --  
  17. --  -- hide the quickTime to reveal the images
  18. --  -- hide the quickTime controls
  19. --  
  20. --  if the visible of sprite gVideoSprite = TRUE then
  21. --    
  22. --    set the visible of sprite gVideoSprite to FALSE
  23. --    
  24. --    set the stageColor to the stageColor
  25. --    
  26. --    -- force the screen redraw 
  27. --    
  28. --    repeat with x = 30 to 33
  29. --      set the visible of sprite x to FALSE
  30. --    end repeat
  31. --    
  32. --    updateStage
  33. --  end if
  34. --  
  35. --end
  36.  
  37.  
  38. on sendChangeImage me
  39.   
  40.   if the scrollTop of the member of sprite  5 > 0 AND the scrollTop of the member of sprite 5 <960  then
  41.     
  42.     
  43.     sendSprite(gVideoSprite, #changeMovie, "TScout")
  44.     
  45.   end if
  46.   
  47.   if the scrollTop of the member of sprite  5 > 960 AND the scrollTop of the member of sprite 5 <1974  then
  48.     
  49.     sendSprite(gVideoSprite, #changeMovie, "TLCor")
  50.     
  51.   end if
  52.   
  53.   if the scrollTop of the member of sprite  5 > 1974 AND the scrollTop of the member of sprite 5 <3115  then
  54.     
  55.     sendSprite(gVideoSprite, #changeMovie, "TDefen")
  56.     
  57.   end if
  58.   
  59.   if the scrollTop of the member of sprite  5 > 3115 AND the scrollTop of the member of sprite 5 <4305  then
  60.     
  61.     sendSprite(gVideoSprite, #changeMovie, "TAssau")
  62.     
  63.   end if
  64.   
  65.   if the scrollTop of the member of sprite  5 > 4305  then
  66.     
  67.     sendSprite(gVideoSprite, #changeMovie, "TCGen")
  68.     
  69.   end if
  70.   
  71. end
  72.